#! C:/Perl/bin/perl -w

use strict;
use warnings;
sub accessvariable
{
	open T1, "<D:/PerlScript/FileOutput/Variable.txt" or die $!;
	my @list = <T1>;
	my $size = @list;
	my $i;
	my @string;
	for($i=0;$i<$size;$i++)
	{
			$list[$i] =~ s/;/ /;
			@string = split(/\s+/,$list[$i]);
			if($string[1] =~ m/^"/)
			{
				@string = split(/"/,$list[$i]);
				print "$string[0] \= \"$string[1]\"\n";
			}
			else
			{
				print "$string[0] \= $string[1]\n";
			}
	}
}
&accessvariable();

my $stop = <STDIN>;